home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / keypic.zip / KEYS1.BAS < prev    next >
BASIC Source File  |  1986-12-30  |  3KB  |  102 lines
  1. 1000 '+++++++++++++++++++++++++++
  2. 1010 '+++++++++++++++++++++++++++
  3. 1020 'MUST HAVE AN IBM WITH A  ++
  4. 1030 'GRAPHICS CARD TO SEE THE ++
  5. 1040 'KEYS DISPLAY.  FROM DOS> ++
  6. 1050 'ENTER BASICA, LOAD KEYS, ++
  7. 1060 'AND RUN.                 ++
  8. 1070 '   GRAPHS:               ++
  9. 1080 '     PICONE.PIC          ++
  10. 1090 '     PICFIV.PIC          ++
  11. 1100 '     FONT1.PIC           ++
  12. 1110 '     PGRAPH2.PIC         ++
  13. 1120 '+++++++++++++++++++++++++++
  14. 1130 '+++++++++++++++++++++++++++
  15. 1140 SCREEN 1:KEY OFF
  16. 1150 READ X$
  17. 1160 'load the screen buffer
  18. 1170 'point SEG at screen buffer
  19. 1180 DEF SEG=&HB800
  20. 1190 'load PICTURE into screen buffer
  21. 1200 BLOAD X$,0
  22. 1210 IF X$="PICONE.PIC" THEN 1310
  23. 1220 GOTO 1150
  24. 1230 DATA PICONE.PIC,PICTWO,PICTHRE,PICFOUR
  25. 1240 DATA PICFIV
  26. 1250 DATA PICELE,PICFIFT,PICSIXT
  27. 1260 DATA PICSEVT,PICEIGT,pic20,pic21
  28. 1270 DATA pic22,picstar
  29. 1280 'DATA pic26,line
  30. 1290 '
  31. 1300 '
  32. 1310 'LINE (130,75)-(190,125),1,B
  33. 1320 DIM BALL1%(600)
  34. 1330 GET (130,75)-(190,125),BALL1%
  35. 1340 FOR X=1 TO 50
  36. 1350 PUT (130+X,75),BALL1%,XOR
  37. 1360 PUT (130-X,75),BALL1%,XOR
  38. 1370 'NEXT X
  39. 1380 '++++++++++++++++++
  40. 1390 'FOR X=1 TO 50
  41. 1400 PUT (130,75+X),BALL1%,XOR
  42. 1410 PUT (130,75-X),BALL1%,XOR
  43. 1420 NEXT X
  44. 1430 '++++++++++++++
  45. 1440 'CHAIN "a:bload"
  46. 1450 'SCREEN 1:KEY OFF
  47. 1460 X$="PICFIV.PIC"
  48. 1470 'load the screen buffer
  49. 1480 'point SEG at screen buffer
  50. 1490 DEF SEG=&HB800
  51. 1500 'load PICTURE into screen buffer
  52. 1510 '
  53. 1520 BLOAD X$,0
  54. 1530 '
  55. 1540 '
  56. 1550 'SCREEN 2:KEY OFF
  57. 1560 X$="FONT1.PIC"
  58. 1570 'load the screen buffer
  59. 1580 'point SEG at screen buffer
  60. 1590 DEF SEG=&HB800
  61. 1600 'load PICTURE into screen buffer
  62. 1610 IF X$="PICFOUR" THEN 1660
  63. 1620 BLOAD X$,0
  64. 1630 LINE (0,195)-(639,199),0,BF
  65. 1640 FOR X=1 TO 6000:NEXT
  66. 1650 '
  67. 1660 SCREEN 2:CLS
  68. 1670 'load the screen buffer
  69. 1680 'point SEG at screen buffer
  70. 1690 DEF SEG=&HB800
  71. 1700 'load PICTURE into screen buffer
  72. 1710 BLOAD "PGRAPH2.PIC",0
  73. 1720 'OR X=1 TO 6000:NEXT
  74. 1730 'RESTORE
  75. 1740 FOR I=1 TO 5
  76. 1750 LOCATE 15,56:PRINT"                   "
  77. 1760 FOR J=1 TO 900:NEXT J
  78. 1770 LOCATE 15,56:PRINT"PRICE DIRECT:";" UP"
  79. 1780 FOR J=1 TO 900:NEXT J
  80. 1790 NEXT I
  81. 1800 LOCATE 15,56:PRINT"PRICE DIRECT:";" UP"
  82. 1810 FOR I=1 TO 10^4:NEXT
  83. 1820 SCREEN 1
  84. 1830 RANDOMIZE N
  85. 1840 N=VAL(RIGHT$(TIME$,2))
  86. 1850 FOR X=200 TO 1 STEP -7
  87. 1860 LINE (157,35)-(0,X),3:NEXT X
  88. 1870 FOR X=0 TO 320 STEP 7
  89. 1880 LINE (157,35)-(X,0),3:NEXT X
  90. 1890 FOR X=0 TO 199 STEP 7
  91. 1900 LINE (157,35)-(319,X),3:NEXT X
  92. 1910 '
  93. 1920 FOR X=1 TO 319 STEP 3
  94. 1930 LINE (157,35)-(X,199):NEXT X
  95. 1940 FOR X=1 TO 319 STEP 5
  96. 1950 LINE (157,35)-(X,199),2:NEXT X
  97. 1960 FOR X=319 TO 1 STEP -3
  98. 1970 LINE (157,35)-(X,199):NEXT X
  99. 1980 FOR X=1 TO 319 STEP 5
  100. 1990 LINE (157,35)-(X,199),2:NEXT X
  101. 2000 GOTO 1450
  102.